home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / SWDOS12 / DEVWRITE.ASM < prev    next >
Assembly Source File  |  1994-07-28  |  861b  |  28 lines
  1. ;******************************************************************
  2. ;*                          DEVWRITE.ASM                          *
  3. ;*          Source file for SoftWeyr enhanced DOS toolbox         *
  4. ;*                           version 1.0                          *
  5. ;*                 Copyright (c) by SoftWeyr,1994                 *
  6. ;******************************************************************
  7. MODEL TPASCAL
  8. .DATA
  9.  EXTRN DOSError:Word
  10. .CODE
  11.   Public StdWrite;
  12.   StdWrite Proc Far Device:Word,S:Dword;
  13.             Push DS
  14.             LDS SI,S
  15.             LODSB
  16.             MOV AH,0
  17.             MOV CX,AX
  18.             MOV DX,SI
  19.             MOV BX,Device
  20.             MOV AH,40H
  21.             INT 21H
  22.             POP DS
  23.             JC @@Error
  24.             XOR AX,AX
  25.    @@Error: MOV DOSerror,AX
  26.             RET
  27.          endp
  28. end